sub OBJEPanes,#thisPane
  #scale=@_SCALE
  if #scale=""
    #scale=1
  endif
  #zoom=@_ZOOM
  if #zoom=""
    #zoom=1
  endif

  ! --------- Title and Date -----------
  #oldWidth=#rightMargin$
  DisplayWidth #oldWidth+#rightSkip+1
  newline -#topMargin$-1
  hskip -#leftSkip-1
  cell GroupBox
    border line
    titleposition none
    cellbackground "Record Header Box Background"
    width -1

    moveto 1,1

    cell PaneBar
    AddPane local("OBJE"),""
    if #mainAll="no"
      AddPane local("Other"),"Notes"
    endif
    AddPane local("Zoom"),"Zoom"
    if #mainAll="no"
      AddPane local("All"),"All"
    endif
    set selected #thisPane
    sizetofit
    set height #cellHeight$+1		! needed for Tiger
    shift (#rightMargin$-#hpos$-#cellWidth$)/2
    help local("Click to view section of this multimedia record")

    newline 5
    
    ! static text with level and tab
    !Show TITL
    !ShowAll TITL
    cell static,local("Title")&":"
    set tabwidth -1 alignment right
    cell static,@FILE.TITL
    set Width -1
    if #thisPane!="Zoom"
      help local("Edit this title below")
    endif
    
    Show _DATE

    if #thisPane="Zoom"
      Show _ZOOM
    endif
  EndGroup

  DisplayWidth #oldWidth
endSub